uses crt;
const n=10; m=10; k=10;
var a:array[1..n] of integer;
b:array[1..m] of integer;
c:array[1..k] of integer;
j,i,s:integer;
d:boolean;
begin
clrscr;
randomize;
writeln('A');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
writeln('B');
for i:=1 to m do
begin
b[i]:=random(10);
write(b[i]:4);
end;
s:=0;
for i:=1 to n do
begin
d:=true;
for j:=1 to m do
begin
if a[i]=b[j] then d:=false;
end;
if d then begin s:=s+1; c[s]:=a[i]; end;
end;
writeln;
writeln('c');
for i:=1 to s do
write(c[i]:4);
readkey;
end.
Похожие записи/страницы:
- Дано: var C: array [1..12,1..18] of char; k: integer. Определить k-количество различных элементов массива C…
- Даны натуральное число n, целые числа a1,..., a25, b1,..., bn. Среди a1,..., a25 нет повторяющихся чисел, нет их…
- Даны натуральное число n, целые числа a1,..., a25, b1,..., bn.Среди a1,..., a25 нет повторяющихся чисел, нет их…
- составить программу вычисления суммы тех положительных элементов двумерного массива А,которые стоят в строках…
- Сформировать два массива целых чисел определенной длины. Вывести на печать числа, встречающиеся только в одном…
- Составить программу формирования и вывода на экран одномерного массива, состоящего из минимальных элементов…
- Дан массив из к целых чисел. Переменной t присвоить значение true, если в массиве нет нулевых элементов, и false…
- Даны три матрицы X,Y,Z. Распечатать ту из них в которой больше нулевых элементов - Pascal(Паскаль)